include std/dll.e
include std/machine.e

include core.e
include wrap_helpers.e

constant
	hQtScriptEngineCreate = define_c_func(hEuQt, "qt_scriptengine_create", {}, P),
	hQtScriptEngineEvalInt = define_c_func(hEuQt, "qt_scriptengine_eval_integer", {P,P}, I)

--****
--<<LEVELTOC depth=2>>


public function create()
	return c_func(hQtScriptEngineCreate, {})
end function

public function evalForInteger(atom engine, sequence script)
	atom pScript = allocate_string(script,1)
	integer result = c_func(hQtScriptEngineEvalInt, {engine, pScript})
	--~ free(pScript)
	return result
end function
